Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Herois/Codigo.Cst/00188_Script_MM Japas Fotos

Text File | 1999-03-19 | 715b | 31 lines

property spr, mem, w, rx
property larguraTotal, posicao

on beginSprite me
  set spr = the spriteNum of me
  set mem = the member of sprite spr
  set w = the width of sprite spr
  set rx = the locH of the regPoint of member mem
  puppetSprite spr,true
  set the locH of sprite spr to -320
end

on inicializaPosicao me, largura, pos
  set larguraTotal = largura
  move me,pos
  set the visibility of sprite spr to true
end

on move me, pos
  if pos > 640 then
    set pos = pos - larguraTotal
  else if pos + larguraTotal < 640 then
    set pos = pos + larguraTotal
  end if
  set the locH of sprite spr to pos + rx
  set posicao = pos
end

on moveRel me, dx
  move me, posicao + dx
end